home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 203 / 203.d81 / src.zip rtl < prev    next >
Text File  |  2022-08-26  |  1KB  |  118 lines
  1.   *=3673              ;ZIP 128 RTL
  2.  
  3. .nolist
  4.  
  5. jmp PRINT
  6. jmp PrintChr
  7. jmp PrintStr
  8. jmp PrintRet
  9. jmp GET
  10. jmp SYS
  11. jmp CHAR
  12. jmp Error
  13. jmp GetPar8
  14. jmp GetPar16
  15.  
  16. PRINT:              ;Print # or var.
  17. stx 59
  18. sta 60
  19. lda #0              ;bank 15
  20. sta $ff00           ;ROMs on
  21. jsr 36398           ;Print 16-bit #.
  22. sta $ff01           ;bank 0
  23. rts
  24.  
  25. PrintChr:           ;Print CHR$( )
  26. ldx #0              ;bank 15
  27. stx $ff00           ;ROMs on
  28. jsr $ffd2           ;CHROUT
  29. sta $ff01           ;bank 0
  30. rts
  31.  
  32. PrintStr:           ;Print text string.
  33. ldy #0
  34. inx
  35. dex
  36. bne *+6
  37. sta $ff01          
  38. rts
  39. sta $ff01           ;switch to bank 0
  40. lda ($22),y         ;in case past 9k.
  41. pha
  42. lda #0              ;bank 15
  43. sta $ff00           ;switch in ROMs.
  44. pla
  45. jsr $ffd2           ;CHROUT
  46. iny
  47. jmp PrintStr+3
  48.  
  49. PrintRet:           ;Print return
  50. lda #13
  51. jmp PrintChr
  52.  
  53. GET:
  54. lda #0
  55. sta $ff00
  56. jsr 65508           ;JGETIN
  57. sta $ff01
  58. rts
  59.  
  60. SYS:
  61. lda #0
  62. sta $ff00
  63. jsr 717
  64. sta $ff01
  65. cli
  66. rts
  67.  
  68. CHAR:
  69. pha
  70. tya
  71. tax
  72. pla
  73. tay
  74. lda #0
  75. sta $ff00
  76. jsr 49176
  77. sta $ff01
  78. rts
  79.  
  80. Error:
  81. lda #0
  82. sta $ff00
  83. jmp ($0300)
  84.  
  85. GetPar8:
  86. lda #0
  87. sta $ff00           ;bank 15
  88. bcs *+8
  89. jsr 34801
  90. jmp *+6
  91. jsr 34804
  92. rts
  93.  
  94. GetPar16:
  95. lda #0
  96. sta $ff00
  97. bcs *+5
  98. jsr 31068
  99. jsr 30679
  100. jsr 34837
  101. rts
  102.  
  103. Write:
  104. ldy #6
  105. lda Trans,y
  106. sta 996,y
  107. dey
  108. bpl Write+2
  109. rts
  110.  
  111. Trans:
  112. jsr 717
  113. sta $ff01
  114. rts
  115.  
  116.  
  117. .end
  118.